#!/usr/bin/perl

use utf8;
use strict;

my %alphabet = ();
chomp (my @lines = <STDIN>);
foreach (@lines) {
	$alphabet{$_} += 1;
}

while ( my ($key, $value) = each %alphabet ){
	print "$key has inputed $value times.\n";
}